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1h-s6 -1984 01:48:57 AX-11 Bliss-32 V4.0- 
12-808 -19be 93:28:32 LIBRTL.SRCJSTRSRCHIN 
MODULE STRSSSRCH_INTLK ( ' Search the pores interlock queue 
TOENT = '1-001' ' File: STRSRCHIN.632 
= 


BEGIN 


MOSS SESLSIILII IIE T TET TT TTT TT TTC r i icici icici iii iit iii isiiiit) 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
' DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bee AND ah THE 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:; sepokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


t* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


it 
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'® TRANSFERRED. * 
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a 

FACILITY: String Library 

ABSTRACT: 


This module contains the code and data base to support 
the string interlock macros, used in the string facility. 


1 
; 
; 
i 
ENVIRONMENT: User mode, AST reentrant. 
AUTHOR: John Sauter, CREATION DATE: 29-OCT-1979 
MODIFIED BY: 

1-001 = Original. JBS 29-OCT-1979 
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STRSSSRCH_INTLK 16-Sep-1984 01:48:57 AX-11 Bliss-32 V4.0-74 Pa 2 
1-001 122808-1 388 9b eB ia LIBRTL.SRCISTRSRCHIN.B 231 we (2) | 
4&9 ; 
0 ! SWITCHES: 
1 I ; 
§ § SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
ae 
: 5 ! LINKAGES: 
28 : 
25 $08 eat 
60 35 i TABLE OF CONTENTS: 
2 ? : 
6 O6¢ FORWARD ROUTINE 
64 STRSSSRCH_INTLK; ! Search the string interlock queue 


; INCLUDE FILES: 
| 
| 


69 068 
70 069 REQUIRE "RTLIN:RTLPSECT’; ! DECLARE_PSECTS macro 
g 65 LIBRARY ‘RTLSTARLE'; ! System symbols 
! 
i} EQUATED SYMBOLS: 
77 i NONE 
78 i 
i PSECTS 
DECLARE _PSECTS (STR); ! Define psects 


; OWN AND GLOBAL STORAGE: 


GLOBAL 
STRSSQ_INTLK : VECTOR (2, LONG); ! Root of interlock queue 


O88 SIN NN NNN NNO OO 
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' 
i EXTERNAL REFERENCES: 
i¢ 
The following are the error codes used in this module: 


’ ' String is interlocked 
: ! Fatal internal error 


F. 
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TRSSSRCH_INTLK 18-se 1984 01:48:57 YAX-11 Bliss-32 V4.0-74 
308i 12280-1384 93508375 LIBRTL.SRCISTRSRCHIN.B 2;1 
GLOBAL ROUTINE STRSSSRCH_INTLK ( ' Search the string interlock queue 
OUR_STRING ! String we are searching for 


APAVL 


oe 
FUNCTIONAL DESCRIPTION: 


— + 4 9 4 2 


If the INSQUE used to plece a string in the string interlock 
queve indicates that there is at least one string already in 
the queue, this routine is called to see if the string is 
ol ready interlocked. If it is, this routine returns 
STRS_STRIS_INT, which gen be passed to LIBSSTOP. If not, 
this routine returns SS$_NORMAL. 

CALLING SEQUENCE: 
status.wlc.v = STRSSSRCH_INTLK (our_string.rt.dx) 

FORMAL PARAMETERS: 


our_string The string we are searching for on the string 
interlock queue. 


STR$$Q_INTLK The head of the string interlock queue. 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 


ise abd 238 
NOUS WN OOO NAUS WN "OO ONOU LW ODO 


SS$_NORMAL - Successful completion, string not interlocked. 
STRS_STRIS_INT = string 1s interlocked. 
~ r 


' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
{ IMPLICIT INPUTS: 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i S 
STRS_FATINTERR he string queue is messed up 
SIDE EFFECTS: 

NONE 

leo 


BEGIN 

LOCAL 
HIT_COUNT, ) 
THIS_STRING : REF VECTOR (3, LONG); ! Interlock block on string queue 


'¢ 
! Search the string interlock queue, looking for our string. 

' Even though we do not disable ASTs we cannot be led astray by one, 
! because the discipline of the string interlock queue requires that 
! a routine remove anything it adds to the queue, so an AST routine 
: will leave the queue the same as when it started. 


HIT_COUNT = 0; 
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THIS_STRING = .STRSS$Q_INTLK (0); 
WHILE (. THIS STRING NEQA STRS$Q_INTLK (02) DO 
BEGIN 


IF (.THIS_STRING C2] EQLA .OUR_STRING) THEN HIT_COUNT = .HIT_COUNT + 1; 
THIS_STRING = .THIS_STRING (0); 
END; 


'¢ 

! The “hit count’ will be 1 if the syring is in the queue exactly once, 

! which is what we expect if the string is not interlocked, since it was 

! put in the queue before we were called. If the "hit count’ is 2 or 

greater then the string is interlocked. The count can be greater than 
If 


WR OOONOULS UNTO 


: ¢ if the string is in use several times in a read-only context. 
the ‘hit count’ is 0 we have an error. 
IF (.HIT_COUNT EQL 1) 


RETURN (SS$_NORMAL) 
LSE 


IF (.HIT_COUNT GTR 1) THEN RETURN (STRS_STRIS_INT) ELSE RETURN (STRS_FATINTERR); 
END; ! End of routine STRSSSRCH_INTLK 
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ror 


— 


- IDENT 
-PSECT _STRSDATA,NOEXE, PIC,2 


00000 STRS$Q_INTLK:: 
-BLKB. 8 


.EXTRN STRS_STRIS_INT, STRS_FATINTERR 
-PSECT _STRSCODE,NOWRT, SHR, PIC.2 


000C 00000 -ENTRY STRSSSRCH_INTLK, Save R2,R3 3 0193 
53 00000000° EE 9—E 0000 MOVAB STR$$Q_INTLK, RS : 
04 8° CLRL HIT NT 3 8 49 
50 63 00 MOVL STRS$Q_INTLK, THIS_STRING ; 0250 
51 g ae 4 1$ MOVAB STRS$S$Q_INTLK, 3: 0252 
51 0 D1 0001 CMPL = THIS_STRING, R1 ; 
0€ 13 00014 BEQL 4 : 
04 Ac 08 A p4 O16 CMPL (THIS_STRING). OUR_STRING ; 0255 
9 1B BNEQ $ ; 
D 1D INCL _ HIT_COUNT : 
50 60 D 1F 2% MOVL (THTS_STRING), THIS_STRING ; 0257 
FA 11 000 2 BRB 1$ > 025 
01 2 p| 3$ CMPL -HIT_COUNT, #1 > 026 
04 ; 7 BNEO 4$ ; 
50 1 p 9 MOVL #1, RO > 0274 
4 0002C RET : 


| 
| 
-TITLE STRSSSRCH_INTLK 
\1-001\ 


7) 
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TRSSSRCH_INTLK 1b-se 1 :57 AX=-11 Bliss-32 V4.0-7 Pa 5 
3681 1o78e8- 138s 93:25:35 = Hare sae istaskcngn o$2.1 a 
8 1 D 4$: BLEQ 5$ 3 
50 000000006 gf 6 F eye #STRS_STRIS_INT, RO : 
50 000000006 8F 00 5$: MOVL § #STRS_FATINTERR, RO : 
04 0003E RET : 0276 
; Routine Size: 63 bytes, Routine Base: _STRSCODE + 0000 
> 185 0277 #1 
; 186 0278 1 END 'End of module STRS$SRCH_INTLK 
: 187 8 79 «1 
; «4188 80 0 ELUDOM 
: PSECT SUMMARY | 
3 Name Bytes Attributes 
: _STRSDATA NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) | 
: TSTRSCODE 63 NOVEC.NOWRT. RD. EXE. SHR. LCL, REL. CON, PIC.ALIGN(2) 
; Library Statistics 
ee ee ee ee a Syabelg ssecocee Pages Processing 
: File Total Loaded Percent Mapped Time 
! _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 1 0 581 00:00.8 
: COMMAND QUALIFIERS | 
: PLISS/EHECK OCF SOLD. SME TEAL .OPTIALZED /MOTRACE/L Sm, 1581 STRERCHIN/OR JORIS: STREACHIN MSRC$:STRSRCHIN/UPDATE=(ENH$: STRSRCHIN | 
Size: 63 code + 8 data bytes 
Run Time: 0:02.7 
in. Time: 217. 
ines/CPU Min: 268 


Lexenes/CPU-Rin: 18000 
"Y Used: 42 pages 
seme’ ation Complete 
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